home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / game / map_quiz / a_asia.bas < prev    next >
BASIC Source File  |  1993-11-30  |  16KB  |  352 lines
  1. 1000 ' ******************************************************************
  2. 1010 ' *                                                                *
  3. 1020 ' *     :::::::::::: A_ASIA.BAS ::::::::::::::                     *
  4. 1030 ' *                                    Programmed By T.K.Mosaku    *
  5. 1040 ' *                                    ~~~~~~~~~~~~~~~~~~~~~~~~    *
  6. 1050 ' ******************************************************************
  7. 1060 '
  8. 1070 '** 画面表示 **
  9. 1080 MENU=1
  10. 1090 LOAD@"D_AZMAP.TIF", (0, 0)
  11. 1100 LOAD@"F_SWICH.TIF", (7, 7)
  12. 1110 LOAD@"F_SWICH3.TIF",(87,7)
  13. 1120 '
  14. 1130 '** MENU 画面 **
  15. 1140 '
  16. 1150 *MENU_GAMEN
  17. 1160 CLS 4:SIR=0
  18. 1170 LINE (205,416)-(442,435),PSET,%2,BF,%13
  19. 1180 LOCATE 4, 21:COLOR 1:PRINT"世界の国名クイズ･････何問に挑戦しますか｡"
  20. 1190 LOCATE 25,22:COLOR 2:PRINT"　5問　10問　20問  30問　40問"
  21. 1200 LOCATE 48,23:COLOR 1:PRINT"左クリックして選んで下さい｡"
  22. 1210 '
  23. 1220 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
  24. 1230 '
  25. 1240 '** MENU 選択 **
  26. 1250 X=MOUSE(4,0):Y=MOUSE(5,0)
  27. 1260   IF X>93  AND X<117 AND Y>27  AND Y<40  THEN SIR=1 :GOTO *SIRABERU
  28. 1270   IF X>18  AND X<38  AND Y>18  AND Y<38  THEN        GOTO *MENU_1
  29. 1280   IF X>51  AND X<71  AND Y>18  AND Y<38  THEN        GOTO *OWARI_E
  30. 1290   IF X>217 AND X<239 AND Y>420 AND Y<433 THEN PNO= 5:GOTO *MOZI
  31. 1300   IF X>258 AND X<287 AND Y>420 AND Y<433 THEN PNO=10:GOTO *MOZI
  32. 1310   IF X>305 AND X<336 AND Y>420 AND Y<433 THEN PNO=20:GOTO *MOZI
  33. 1320   IF X>353 AND X<383 AND Y>420 AND Y<433 THEN PNO=30:GOTO *MOZI
  34. 1330   IF X>401 AND X<432 AND Y>420 AND Y<433 THEN PNO=40:GOTO *MOZI
  35. 1340 GOTO 1250
  36. 1350 '
  37. 1360 '** 画面設定 **
  38. 1370 *MOZI
  39. 1380  QQN=0
  40. 1390  IF QQN=2 THEN GOTO 1640
  41. 1400  CLS 4
  42. 1410 LINE (205,416)-(442,435),PSET,%4,BF
  43. 1420 LOAD@ "E_GRAPH.TIF",(165,454)
  44. 1430 LOCATE 5, 21:COLOR 1:PRINT"問  題"
  45. 1440 LOCATE 25,22:COLOR 2:PRINT"                   "
  46. 1450 LOCATE 20,23:COLOR 1
  47. 1460 PRINT"今までの成績   正答数                   正答率         ％"
  48. 1470   IF QQN=1 THEN QQN=QQN+1:GOTO 1640
  49. 1480 '
  50. 1490 '** MAIN LOOTINE **
  51. 1500  CY=0:CN=0:CCN=0:DIM KIR(PNO-1):DIM NFW(PNO):KIRN=0:QQN=0
  52. 1510 '
  53. 1520 MOUSE 5:MOUSE 0:MOUSE 1,365,207,1
  54. 1530 '
  55. 1540 RANDOMIZE TIME 
  56. 1550 NFW(0)=INT(RND*46)
  57. 1560 T=1
  58. 1570   IF CCN=PNO THEN GOTO 1730
  59. 1580   N=INT(RND*46)+1
  60. 1590   FOR J=0 TO T-1
  61. 1600     IF NFW(J)=N THEN GOTO 1580
  62. 1610   NEXT J
  63. 1620   NFW(T)=N:QQ=N
  64. 1630     MOUSE 5:MOUSE 0:MOUSE 1,365,207,1:MOUSE 4,8,8,611,364
  65. 1640     TTN=0:BN=0
  66. 1650     IF QQ=<10           THEN Q=QQ   :GOTO *M0
  67. 1660     IF QQ>10 AND QQ=<20 THEN Q=QQ-10:GOTO *M1
  68. 1670     IF QQ>20 AND QQ=<30 THEN Q=QQ-20:GOTO *M2
  69. 1680     IF QQ>30 AND QQ=<40 THEN Q=QQ-30:GOTO *M3
  70. 1690     IF QQ>40 AND QQ=<50 THEN Q=QQ-40:GOTO *M4
  71. 1700 CCN=CCN+1:T=T+1:GOTO 1570
  72. 1710 T=T+1:GOTO 1570
  73. 1720 '
  74. 1730 IF KIRN=0 THEN 3840 ELSE 3610
  75. 1740 '
  76. 1750 *M0:ON Q GOTO *A1, *A2, *A3, *A4, *A5, *A6, *A7, *A8, *A9, *A10
  77. 1760 *M1:ON Q GOTO *A11,*A12,*A13,*A14,*A15,*A16,*A17,*A18,*A19,*A21
  78. 1770 *M2:ON Q GOTO *A21,*A22,*A23,*A24,*A25,*A26,*A27,*A28,*A29,*A30
  79. 1780 *M3:ON Q GOTO *A31,*A32,*A33,*A34,*A35,*A36,*A37,*A38,*A39,*A40
  80. 1790 *M4:ON Q GOTO *A41,*A42,*A43,*A44,*A45,*A46,*A47,*A48
  81. 1800 '
  82. 1810 *A1  :A$="イエメン"              :XP=129:YP=224 :GOTO *SENTAKU
  83. 1820 *A2  :A$="オ－マン"              :XP=182:YP=210 :GOTO *SENTAKU
  84. 1830 *A3  :A$="アラブ首長国連邦"      :XP=167:YP=204 :GOTO *SENTAKU
  85. 1840 *A4  :A$="カタ－ル"              :XP=161:YP=195 :GOTO *SENTAKU
  86. 1850 *A5  :A$="バ－レン"              :XP=157:YP=190 :GOTO *SENTAKU
  87. 1860 *A6  :A$="サウジアラビア"        :XP=141:YP=187 :GOTO *SENTAKU
  88. 1870 *A7  :A$="ヨルダン"              :XP=124:YP=157 :GOTO *SENTAKU
  89. 1880 *A8  :A$="イスラエル"            :XP=103:YP=143 :GOTO *SENTAKU
  90. 1890 *A9  :A$="レバノン"              :XP=129:YP=121 :GOTO *SENTAKU
  91. 1900 *A10 :A$="シリア"                :XP=134:YP=150 :GOTO *SENTAKU
  92. 1910 *A11 :A$="イラク"                :XP=150:YP=158 :GOTO *SENTAKU
  93. 1920 *A12 :A$="クウェ－ト"            :XP=154:YP=273 :GOTO *SENTAKU
  94. 1930 *A13 :A$="トルコ"                :XP=123:YP=134 :GOTO *SENTAKU
  95. 1940 *A14 :A$="イラン"                :XP=178:YP=159 :GOTO *SENTAKU
  96. 1950 *A15 :A$="アゼルバイジャン"      :XP=180:YP=139 :GOTO *SENTAKU
  97. 1960 *A16 :A$="グルジア"              :XP=169:YP=84  :GOTO *SENTAKU
  98. 1970 *A17 :A$="アルメニア"            :XP=167:YP=168 :GOTO *SENTAKU
  99. 1980 *A18 :A$="アフガニスタン"        :XP=224:YP=177 :GOTO *SENTAKU
  100. 1990 *A19 :A$="トルクメニスタン"      :XP=202:YP=154 :GOTO *SENTAKU
  101. 2000 *A21 :A$="カザフスタン"          :XP=263:YP=148 :GOTO *SENTAKU
  102. 2010 *A22 :A$="ウズベキスタン"        :XP=241:YP=124 :GOTO *SENTAKU
  103. 2020 *A23 :A$="キルギスタン"          :XP=254:YP=153 :GOTO *SENTAKU
  104. 2030 *A24 :A$="タジキスタン"          :XP=239:YP=162 :GOTO *SENTAKU
  105. 2040 *A25 :A$="パキスタン"            :XP=237:YP=187 :GOTO *SENTAKU
  106. 2050 *A26 :A$="インド"                :XP=247:YP=210 :GOTO *SENTAKU
  107. 2060 *A27 :A$="ネパ－ル"              :XP=279:YP=214 :GOTO *SENTAKU
  108. 2070 *A28 :A$="バングラディシュ"      :XP=298:YP=233 :GOTO *SENTAKU
  109. 2080 *A29 :A$="ブ－タン"              :XP=300:YP=187 :GOTO *SENTAKU
  110. 2090 *A30 :A$="ミャンマ－"            :XP=319:YP=260 :GOTO *SENTAKU
  111. 2100 *A31 :A$="タイ"                  :XP=332:YP=273 :GOTO *SENTAKU
  112. 2110 *A32 :A$="カンボジャ"            :XP=347:YP=281 :GOTO *SENTAKU
  113. 2120 *A33 :A$="ラオス"                :XP=340:YP=254 :GOTO *SENTAKU
  114. 2130 *A34 :A$="ベトナム"              :XP=351:YP=243 :GOTO *SENTAKU
  115. 2140 *A35 :A$="中華人民共和国"        :XP=380:YP=164 :GOTO *SENTAKU
  116. 2150 *A36 :A$="モンゴル"              :XP=346:YP=133 :GOTO *SENTAKU
  117. 2160 *A37 :A$="大韓民国"              :XP=417:YP=172 :GOTO *SENTAKU
  118. 2170 *A38 :A$="朝鮮民主主義人民共和国":XP=410:YP=163 :GOTO *SENTAKU
  119. 2180 *A39 :A$="ホンコン"              :XP=388:YP=230 :GOTO *SENTAKU
  120. 2190 *A40 :A$="マカオ"                :XP=380:YP=232 :GOTO *SENTAKU
  121. 2200 *A41 :A$="マレ－シア"            :XP=338:YP=313 :GOTO *SENTAKU
  122. 2210 *A42 :A$="シンガポ－ル"          :XP=346:YP=322 :GOTO *SENTAKU
  123. 2220 *A43 :A$="インドネシア"          :XP=360:YP=353 :GOTO *SENTAKU
  124. 2230 *A44 :A$="ブルネイ・ダルサラ－ム":XP=390:YP=305 :GOTO *SENTAKU
  125. 2240 *A45 :A$="フィリッピン"          :XP=410:YP=262 :GOTO *SENTAKU
  126. 2250 *A46 :A$="パプアニュ－ギニア"    :XP=527:YP=363 :GOTO *SENTAKU
  127. 2260 *A47 :A$="スリランカ"            :XP=254:YP=295 :GOTO *SENTAKU
  128. 2270 *A48 :A$="日本"                  :XP=455:YP=165 :GOTO *SENTAKU
  129. 2280 '
  130. 2290 *SENTAKU
  131. 2300   IF TTN=0 THEN GOTO *WRITE 
  132. 2310   IF TTN=1 THEN GOTO *WRITE_NO 
  133. 2320   IF TTN=2 THEN GOTO *SIRABE_WRITE 
  134. 2330 '
  135. 2340 *WRITE
  136. 2350   LOCATE 14,21:COLOR 2:PRINT "                                    "
  137. 2360   LOCATE 14,21:COLOR 2:PRINT A$
  138. 2370   GOTO 2410
  139. 2380 '
  140. 2390 *POINT
  141. 2400 MOUSE 5:MOUSE 0:MOUSE 1,X,Y,1:MOUSE 4,8,8,611,364:GOTO 2420
  142. 2410 MOUSE 5:MOUSE 0:MOUSE 1,365,207,1:MOUSE 4,8,8,611,364
  143. 2420 B=1
  144. 2430 X=MOUSE(4,0):Y=MOUSE(5,0)
  145. 2440 IF X>93   AND X<117  AND Y>27  AND Y<40  THEN       GOTO *SIRABERU
  146. 2450 IF X>125  AND X<147  AND Y>27  AND Y<40  THEN       GOTO *MODORU
  147. 2460 IF X>18   AND X<38   AND Y>18  AND Y<38  THEN       GOTO *MENU_E
  148. 2470 IF X>51   AND X<71   AND Y>18  AND Y<38  THEN       GOTO *OWARI_E
  149. 2480 IF X>127  AND X<132  AND Y>222 AND Y<227 THEN TT=1 :GOTO *BUNKI
  150. 2490 IF X>180  AND X<185  AND Y>208 AND Y<213 THEN TT=2 :GOTO *BUNKI
  151. 2500 IF X>164  AND X<169  AND Y>202 AND Y<207 THEN TT=3 :GOTO *BUNKI
  152. 2510 IF X>159  AND X<164  AND Y>193 AND Y<198 THEN TT=4 :GOTO *BUNKI
  153. 2520 IF X>155  AND X<160  AND Y>188 AND Y<193 THEN TT=5 :GOTO *BUNKI
  154. 2530 IF X>139  AND X<144  AND Y>185 AND Y<190 THEN TT=6 :GOTO *BUNKI
  155. 2540 IF X>122  AND X<127  AND Y>155 AND Y<160 THEN TT=7 :GOTO *BUNKI
  156. 2550 IF X>101  AND X<106  AND Y>141 AND Y<146 THEN TT=8 :GOTO *BUNKI
  157. 2560 IF X>127  AND X<132  AND Y>119 AND Y<124 THEN TT=9 :GOTO *BUNKI
  158. 2570 IF X>132  AND X<136  AND Y>156 AND Y<161 THEN TT=10:GOTO *BUNKI
  159. 2580 IF X>148  AND X<153  AND Y>156 AND Y<161 THEN TT=11:GOTO *BUNKI
  160. 2590 IF X>152  AND X<157  AND Y>271 AND Y<276 THEN TT=12:GOTO *BUNKI
  161. 2600 IF X>121  AND X<126  AND Y>132 AND Y<137 THEN TT=13:GOTO *BUNKI
  162. 2610 IF X>176  AND X<181  AND Y>157 AND Y<162 THEN TT=14:GOTO *BUNKI
  163. 2620 IF X>178  AND X<183  AND Y>137 AND Y<142 THEN TT=15:GOTO *BUNKI
  164. 2630 IF X>167  AND X<172  AND Y>82  AND Y<87  THEN TT=16:GOTO *BUNKI
  165. 2640 IF X>165  AND X<170  AND Y>166 AND Y<171 THEN TT=17:GOTO *BUNKI
  166. 2650 IF X>222  AND X<227  AND Y>175 AND Y<180 THEN TT=18:GOTO *BUNKI
  167. 2660 IF X>200  AND X<205  AND Y>152 AND Y<157 THEN TT=19:GOTO *BUNKI
  168. 2670 IF X>261  AND X<266  AND Y>146 AND Y<151 THEN TT=21:GOTO *BUNKI
  169. 2680 IF X>239  AND X<244  AND Y>122 AND Y<127 THEN TT=22:GOTO *BUNKI
  170. 2690 IF X>252  AND X<257  AND Y>151 AND Y<156 THEN TT=23:GOTO *BUNKI
  171. 2700 IF X>237  AND X<242  AND Y>160 AND Y<165 THEN TT=24:GOTO *BUNKI
  172. 2710 IF X>235  AND X<240  AND Y>185 AND Y<190 THEN TT=25:GOTO *BUNKI
  173. 2720 IF X>245  AND X<250  AND Y>208 AND Y<213 THEN TT=26:GOTO *BUNKI
  174. 2730 IF X>277  AND X<282  AND Y>212 AND Y<217 THEN TT=27:GOTO *BUNKI
  175. 2740 IF X>296  AND X<301  AND Y>231 AND Y<236 THEN TT=28:GOTO *BUNKI
  176. 2750 IF X>298  AND X<303  AND Y>185 AND Y<190 THEN TT=29:GOTO *BUNKI
  177. 2760 IF X>317  AND X<322  AND Y>258 AND Y<263 THEN TT=30:GOTO *BUNKI
  178. 2770 IF X>330  AND X<335  AND Y>271 AND Y<276 THEN TT=31:GOTO *BUNKI
  179. 2780 IF X>345  AND X<350  AND Y>279 AND Y<284 THEN TT=32:GOTO *BUNKI
  180. 2790 IF X>338  AND X<343  AND Y>252 AND Y<257 THEN TT=33:GOTO *BUNKI
  181. 2800 IF X>349  AND X<354  AND Y>241 AND Y<246 THEN TT=34:GOTO *BUNKI
  182. 2810 IF X>378  AND X<383  AND Y>162 AND Y<167 THEN TT=35:GOTO *BUNKI
  183. 2820 IF X>344  AND X<349  AND Y>131 AND Y<136 THEN TT=36:GOTO *BUNKI
  184. 2830 IF X>415  AND X<420  AND Y>170 AND Y<175 THEN TT=37:GOTO *BUNKI
  185. 2840 IF X>408  AND X<413  AND Y>161 AND Y<166 THEN TT=38:GOTO *BUNKI
  186. 2850 IF X>386  AND X<391  AND Y>228 AND Y<233 THEN TT=39:GOTO *BUNKI
  187. 2860 IF X>378  AND X<383  AND Y>230 AND Y<233 THEN TT=40:GOTO *BUNKI
  188. 2870 IF X>336  AND X<341  AND Y>311 AND Y<316 THEN TT=41:GOTO *BUNKI
  189. 2880 IF X>344  AND X<349  AND Y>320 AND Y<325 THEN TT=42:GOTO *BUNKI
  190. 2890 IF X>358  AND X<363  AND Y>351 AND Y<356 THEN TT=43:GOTO *BUNKI
  191. 2900 IF X>388  AND X<393  AND Y>303 AND Y<308 THEN TT=44:GOTO *BUNKI
  192. 2910 IF X>408  AND X<413  AND Y>260 AND Y<265 THEN TT=45:GOTO *BUNKI
  193. 2920 IF X>525  AND X<530  AND Y>361 AND Y<366 THEN TT=46:GOTO *BUNKI
  194. 2930 IF X>252  AND X<257  AND Y>293 AND Y<298 THEN TT=47:GOTO *BUNKI
  195. 2940 IF X>453  AND X<458  AND Y>162 AND Y<168 THEN TT=48:GOTO *BUNKI
  196. 2950 IF B=1 THEN 2960 ELSE 2430
  197. 2960 'MOUSE 5:MOUSE 0:MOUSE 1,365,207,1:MOUSE 4,8,8,611,364
  198. 2970 B=B+1
  199. 2980 GOTO 2430
  200. 2990 '
  201. 3000 '
  202. 3010 *BUNKI
  203. 3020   IF BN=0  THEN *QUIZ ELSE *SIRABE
  204. 3030 *QUIZ 
  205. 3040   IF QQ=TT THEN *YES  ELSE *NO
  206. 3050 *SIRABE 
  207. 3060   TTN=2:GOTO *CHECK
  208. 3070 '
  209. 3080 *YES
  210. 3090  CY=CY+1
  211. 3100    LOCATE 15,22:COLOR 3: PRINT"★★★ 正解です｡ ★★★" 
  212. 3110    PCMPLAY YES_S%
  213. 3120  GOSUB *COUNT
  214. 3130  WAIT 100
  215. 3140  WAIT 100
  216. 3150    LOCATE 15,22:COLOR 1:PRINT"                         " 
  217. 3160  IF QQN=2 THEN GOTO 3780
  218. 3170  GOTO 1700
  219. 3180 '
  220. 3190 *NO
  221. 3200  CN=CN+1:TTN=1
  222. 3210    LOCATE 15,22:COLOR 3:PRINT"☆☆☆ 残念でした｡ ☆☆☆" 
  223. 3220    PCMPLAY NO_S%
  224. 3230  XPP=XP:YPP=YP
  225. 3240     *CHECK
  226. 3250       IF TT=<10           THEN Q=TT   :GOTO *M0
  227. 3260       IF TT>10 AND TT=<20 THEN Q=TT-10:GOTO *M1
  228. 3270       IF TT>20 AND TT=<30 THEN Q=TT-20:GOTO *M2
  229. 3280       IF TT>30 AND TT=<40 THEN Q=TT-30:GOTO *M3
  230. 3290       IF TT>40 AND TT=<50 THEN Q=TT-40:GOTO *M4
  231. 3300    *WRITE_NO
  232. 3310    LOCATE 10,22:COLOR 3
  233. 3320    PRINT"★★★ 残念でした｡ ★★★   そこは  『";A$;"』  です｡" 
  234. 3330  GOSUB *COUNT
  235. 3340  IF QQN=0 THEN GOSUB *KIROKU
  236. 3350  WAIT 70
  237. 3360    CIRCLE (XPP,YPP),6,5,,,,F,XOR
  238. 3370  WAIT 250
  239. 3380    CIRCLE (XPP,YPP),6,5,,,,F,XOR
  240. 3390    LOCATE 15,22:COLOR 1:PRINT"                          " 
  241. 3400    LOCATE 10,22:PRINT SPACE$(70)
  242. 3410  IF QQN=2 THEN GOTO 3780
  243. 3420  GOTO 1700
  244. 3430 '
  245. 3440 *COUNT
  246. 3450  CT=CY+CN
  247. 3460  CC=INT((CY/CT)*100)
  248. 3470  CG=INT(CC*3):IF CG>297 THEN CG=297
  249. 3480    LOCATE 44,23:PRINT "             "
  250. 3490    LOCATE 70,23:PRINT "     "
  251. 3500    LOCATE 44,23:COLOR 3:PRINT "(";CY;"/";CT;")  "
  252. 3510    LOCATE 70,23:COLOR 3:PRINT CC
  253. 3520    LINE (280,   457)-(578,   461),PSET,%4,BF
  254. 3530    LINE (280,   457)-(281+CG,461),PSET,%3,BF
  255. 3540    LINE (280+CG,457)-(578,   461),PSET,%4,BF
  256. 3550  RETURN
  257. 3560 '
  258. 3570 *KIROKU
  259. 3580  KIR(KIRN)=QQ:KIRN=KIRN+1
  260. 3590  RETURN
  261. 3600 '
  262. 3610 '** 確認 選択 **
  263. 3620 MOUSE 5:CLS 4:LOAD@ "E_CLEAR.TIF",(165,454)
  264. 3630   LOCATE 10,21 :COLOR 2:PRINT"間違いを確かめますか?"
  265. 3640   LOCATE 20,22 :COLOR 1:PRINT"     確かめます｡"
  266. 3650   LOCATE 20,23 :COLOR 1:PRINT"     確かめません｡"
  267. 3660 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
  268. 3670 X=MOUSE(4,0):Y=MOUSE(5,0)
  269. 3680   IF X>18  AND X<38  AND Y>18  AND Y<38  THEN GOTO *MENU_E
  270. 3690   IF X>51  AND X<71  AND Y>18  AND Y<38  THEN GOTO *OWARI_E
  271. 3700   IF X>199 AND X<268 AND Y>418 AND Y<432 THEN GOTO 3740
  272. 3710   IF X>199 AND X<288 AND Y>438 AND Y<453 THEN GOTO 3850
  273. 3720 GOTO 3670
  274. 3730 '
  275. 3740 '** 確認 ROOTINE ** 
  276. 3750   PNO=KIRN-1:QQN=1:CY=0:CN=0 
  277. 3760   FOR J=0 TO PNO
  278. 3770     QQ=KIR(J):GOTO 1390
  279. 3780   NEXT J
  280. 3790  MOUSE 5:CLS 4:LOAD@ "E_CLEAR.TIF",(165,454) 
  281. 3800  LOCATE 10,21 :COLOR 2:PRINT"もう一度､間違いを確かめますか?"
  282. 3810  GOTO 3640
  283. 3820 '
  284. 3830 '** END 選択 **
  285. 3840 LOAD@ "E_CLEAR.TIF",(165,454) 
  286. 3850 CLS 4:ERASE KIR:ERASE NFW
  287. 3860   LOCATE 10,21 :COLOR 2:PRINT"続けますか?"
  288. 3870   LOCATE 20,22 :COLOR 1:PRINT"     続けます｡"
  289. 3880   LOCATE 20,23 :COLOR 1:PRINT"     終わります｡"
  290. 3890 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
  291. 3900 X=MOUSE(4,0):Y=MOUSE(5,0)
  292. 3910   IF X>18  AND X<38  AND Y>18  AND Y<38  THEN GOTO *MENU_E
  293. 3920   IF X>51  AND X<71  AND Y>18  AND Y<38  THEN GOTO *OWARI_E
  294. 3930   IF X>199 AND X<268 AND Y>418 AND Y<432 THEN GOTO 1120
  295. 3940   IF X>199 AND X<288 AND Y>438 AND Y<453 THEN GOTO 3970
  296. 3950 GOTO 3900
  297. 3960 '
  298. 3970 IF MENU=1 THEN 3990 ELSE 4180
  299. 3980 '
  300. 3990 CLS 4 
  301. 4000   LOCATE 10,21 :COLOR 2:PRINT"メニュ－に戻りますか?"
  302. 4010   LOCATE 20,22 :COLOR 1:PRINT"     メニュ－に戻ります｡"
  303. 4020   LOCATE 20,23 :COLOR 1:PRINT"     メニュ－に戻らず終わります｡"
  304. 4030 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
  305. 4040 X=MOUSE(4,0):Y=MOUSE(5,0)
  306. 4050   IF X>18  AND X<38  AND Y>18  AND Y<38  THEN GOTO *MENU_E
  307. 4060   IF X>51  AND X<71  AND Y>18  AND Y<38  THEN GOTO *OWARI_E
  308. 4070   IF Y>418 AND Y<432 THEN GOTO 4140
  309. 4080   IF Y>438 AND Y<453 THEN GOTO 4180
  310. 4090 GOTO 4040
  311. 4100 '
  312. 4110 *MENU_E
  313. 4120 ERASE KIR:ERASE NFW
  314. 4130 *MENU_1
  315. 4140 CHAIN "B_MENU2.BAS",,ALL
  316. 4150 RUN "B_MENU2.BAS"
  317. 4160 '
  318. 4170 *OWARI_E
  319. 4180 CHAIN "B_END.BAS",,ALL
  320. 4190 RUN "B_END.BAS"
  321. 4200 '
  322. 4210 *SIRABERU
  323. 4220   IF SIR=1 THEN GOTO 4260
  324. 4230   LOCATE 14,21:PRINT "                                    "
  325. 4240   LOCATE 14,21:COLOR 3:PRINT "クイズ中断中, 調べモードです｡"
  326. 4250   GOTO 4290
  327. 4260   LINE(199,415)-(450,437),PSET,%4,BF:LOCATE 24,23:PRINT SPACE$(55)
  328. 4270   LOCATE 24,21:PRINT "                                    "
  329. 4280   LOCATE 24,21:COLOR 3:PRINT "クイズ中断中, 調べモードです｡"
  330. 4290   LOCATE 24,22:PRINT SPACE$(50)
  331. 4300   BN=1:GOTO *POINT
  332. 4310 '
  333. 4320 *SIRABE_WRITE
  334. 4330  LOCATE 15,22:COLOR 3:PRINT SPACE$(50)
  335. 4340  FOR T=5 TO 2 STEP -1 
  336. 4350    LOCATE 15,22:COLOR T:PRINT"そこは 『";A$;"』  です｡" 
  337. 4360    WAIT 25
  338. 4370  NEXT
  339. 4380  WAIT 50:GOTO *POINT
  340. 4390 '
  341. 4400 *MODORU
  342. 4410  IF SIR=1 THEN GOTO *MENU_GAMEN'
  343. 4420  LOCATE 24,21:PRINT "                                    "
  344. 4430  LOCATE 15,22:PRINT SPACE$(50)
  345. 4440  GOTO 1710
  346. 4450 '
  347. 4460 *MOUS
  348. 4470  MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
  349. 4480  X=MOUSE(4,0):Y=MOUSE(5,0)
  350. 4490  LOCATE 55,22:PRINT X;Y
  351. 4500  GOTO 4480
  352.